home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / dev / misc / Istar.lha / Istar / Install_Istar < prev    next >
Text File  |  1999-10-07  |  4KB  |  156 lines
  1. ;;
  2. ;; Install_Istar - Istar installation script
  3. ;;
  4. ;; Copyright © Andrew Basden, October 1999
  5. ;;
  6. ;;     Installer and Installer project icon
  7. ;;     (c) Copyright 1991-93 Commodore-Amiga, Inc.  All Rights Reserved.
  8. ;;     Reproduced and distributed under license from Commodore.
  9. ;;
  10. ;;     INSTALLER SOFTWARE IS PROVIDED "AS-IS" AND SUBJECT TO CHANGE;
  11. ;;     NO WARRANTIES ARE MADE.  ALL USE IS AT YOUR OWN RISK.  NO LIABILITY
  12. ;;     OR RESPONSIBILITY IS ASSUMED.
  13. ;;
  14.  
  15. ;; -- IstarSys directory
  16.  
  17. (set @path
  18.   (askdir 
  19.      (default "work:")
  20.      (prompt "Where do you want to install the Istar program and its system files? (A new Istar diretory will be created for them.)\n\nThe system files include preferences files and a Docs drawer.\n\nNote: If installation goes wrong, manual installation is easy: follow Install.Readme.")
  21.     (help @makedir-help)
  22.   )
  23. )
  24.  
  25. (set @istarsys (tackon @path "Istar"))
  26.  
  27. (if (NOT (exists @istarsys)))
  28.   (makedir @istarsys 
  29.     (infos)
  30.   )
  31.  
  32. ;; -- The User directory
  33.  
  34. (set @user
  35.   (askdir 
  36.      (default @istarsys)
  37.      (prompt "Where do you want the user directories to go?\n\nOften this is in the same directory as the Istar program, but you can place it elsewhere.")
  38.     (help "The user directories include: KBs, Templates, Dump")
  39.   )
  40. )
  41.  
  42. ;; -- Copy the system
  43.  
  44. (copyfiles
  45.   (prompt "Copy the Istar program?")
  46.   (help "This will copy the Istar program and its icon")
  47.   (source "")
  48.   (dest @istarsys)
  49.         (pattern "Istar")
  50.   (files)
  51.         (infos)
  52.   (confirm expert)
  53. )
  54.  
  55. (copyfiles
  56.   (prompt "Copy the User Documentation files?")
  57.   (help "This will copy three .html files of documentation for run-time users.")
  58.   (source "")
  59.   (dest @istarsys)
  60.         (pattern "#?.html")
  61.   (files)
  62.         (infos)
  63.   (confirm intermediate)
  64. )
  65.  
  66. (copyfiles
  67.   (prompt "Copy the Readme files?")
  68.   (help "This will copy the .readme files that briefly describe Istar.  You probably don't need them.")
  69.   (source "")
  70.   (dest @istarsys)
  71.         (pattern "#?.readme")
  72.   (files)
  73.         (infos)
  74.   (confirm intermediate)
  75. )
  76.  
  77. (set @docs (tackon @istarsys "Docs"))
  78.  
  79. (if (NOT (exists @docs)))
  80.   (makedir @docs 
  81.     (infos)
  82.   )
  83.  
  84. (copyfiles
  85.   (prompt "Copy the Knowledge Engineer Documentation files?")
  86.   (help "This will copy the Docs drawer and sub-drawers.  They are all .html.  You should do this.")
  87.   (source "docs")
  88.   (dest @docs)
  89.         (pattern "#?")
  90.         (infos)
  91.   (confirm intermediate)
  92. )
  93.  
  94. ;; -- Copy over the user sample stuff
  95.  
  96. (set @user_kb (tackon @user "KBs"))
  97.  
  98. (if (NOT (exists @user_kb)))
  99.   (makedir @user_kb 
  100.     (infos)
  101.   )
  102.  
  103. ;;(set @user_tmpl (tackon @user "Templates"))
  104. ;;(if (NOT (exists @user_tmpl)))
  105. ;;  (makedir @user_tmpl 
  106. ;;    (infos)
  107. ;;  )
  108.  
  109. (set @user_dump (tackon @user "Dump"))
  110.  
  111. (if (NOT (exists @user_dump)))
  112.   (makedir @user_dump 
  113.   (prompt "Shall I create a Dump directory?  To receive screendumps, text, etc.")
  114.   (help "This merely creates the directory for later use.  Istar assumes it is there.  You should normally say Proceed, but it's not disaster if you don't.")
  115.     (infos)
  116.   (confirm expert)
  117.   )
  118.  
  119. (copyfiles
  120.   (prompt "Copy the sample knowledge bases?  You should Proceed here if you are going to set up the Knowledge Server facility.")
  121.   (help "This will copy example KBs.  Some are used in the tutorials.  It will also copy the Knowledge Server control file, .serverkbs, and descriptions of the KBs used by the Knowledge Server.")
  122.   (source "KBs")
  123.   (dest @user_kb)
  124.         (all)
  125.         (infos)
  126.   (confirm intermediate)
  127. )
  128.  
  129. (copyfiles
  130.   (prompt "Copy the Istar Preferences files?")
  131.   (help "This will copy several preferences files, overwriting any you have of the same name.  Unless you have specially altered versions, you should normally say Proceed here.")
  132.   (source "")
  133.   (dest @istarsys)
  134.         (pattern "IstarPrefs#?")
  135.   (files)
  136.         (infos)
  137.   (confirm intermediate)
  138. )
  139.  
  140. (copylib
  141.   (prompt "Install iff library?")
  142.   (help "IFF library reads pictures.  You should normally Proceed here.")
  143.   (source "iff.library")
  144.   (dest "libs:")
  145.   (confirm)
  146. )
  147.  
  148. (set @istar-assign (cat "assign IstarSys: " @istarsys "\nassign KBTools: " @user))
  149. (startup "Istar"
  150.   (prompt "Istar assigns are normally added to the \"S:user-startup\".  Shall I do so?")
  151.   (help "Not strictly necessary, but avoids annoying requesters.  The assigns made are to IstarSys, where various system files are found, and KBTools, where various user directories are sought: KBs, Dump, Templates")
  152.   (command @istar-assign)
  153.   (confirm)
  154. )
  155.  
  156.